CD Direkt 1996 #11/CDD_11_96.ISO/demos/timelaps/devinter.dxr/00029_down arrow.ls

Text File | 1996-08-07 | 341 b | 16 lines

on mouseDown
  global MaximumV
  set stepSize to 1
  repeat while the mouseDown
    if the locV of sprite 2 <= MaximumV then
      exit
    end if
    set the locV of sprite 2 to the locV of sprite 2 - stepSize
    updateStage()
    set stepSize to stepSize * 2
    if stepSize > 64 then
      set stepSize to 64
    end if
  end repeat
end